home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Include / Graphics / VideoControl.i < prev    next >
Encoding:
Text File  |  1997-05-06  |  4.3 KB  |  113 lines
  1. { VideoControl.i }
  2.  
  3. {$I   "Include:Exec/Types.i"}
  4. {$I   "Include:Utility/TagItem.i"}
  5.  
  6. CONST
  7.  VTAG_END_CM            = $00000000;
  8.  VTAG_CHROMAKEY_CLR     = $80000000;
  9.  VTAG_CHROMAKEY_SET     = $80000001;
  10.  VTAG_BITPLANEKEY_CLR   = $80000002;
  11.  VTAG_BITPLANEKEY_SET   = $80000003;
  12.  VTAG_BORDERBLANK_CLR   = $80000004;
  13.  VTAG_BORDERBLANK_SET   = $80000005;
  14.  VTAG_BORDERNOTRANS_CLR = $80000006;
  15.  VTAG_BORDERNOTRANS_SET = $80000007;
  16.  VTAG_CHROMA_PEN_CLR    = $80000008;
  17.  VTAG_CHROMA_PEN_SET    = $80000009;
  18.  VTAG_CHROMA_PLANE_SET  = $8000000A;
  19.  VTAG_ATTACH_CM_SET     = $8000000B;
  20.  VTAG_NEXTBUF_CM        = $8000000C;
  21.  VTAG_BATCH_CM_CLR      = $8000000D;
  22.  VTAG_BATCH_CM_SET      = $8000000E;
  23.  VTAG_NORMAL_DISP_GET   = $8000000F;
  24.  VTAG_NORMAL_DISP_SET   = $80000010;
  25.  VTAG_COERCE_DISP_GET   = $80000011;
  26.  VTAG_COERCE_DISP_SET   = $80000012;
  27.  VTAG_VIEWPORTEXTRA_GET = $80000013;
  28.  VTAG_VIEWPORTEXTRA_SET = $80000014;
  29.  VTAG_CHROMAKEY_GET     = $80000015;
  30.  VTAG_BITPLANEKEY_GET   = $80000016;
  31.  VTAG_BORDERBLANK_GET   = $80000017;
  32.  VTAG_BORDERNOTRANS_GET = $80000018;
  33.  VTAG_CHROMA_PEN_GET    = $80000019;
  34.  VTAG_CHROMA_PLANE_GET  = $8000001A;
  35.  VTAG_ATTACH_CM_GET     = $8000001B;
  36.  VTAG_BATCH_CM_GET      = $8000001C;
  37.  VTAG_BATCH_ITEMS_GET   = $8000001D;
  38.  VTAG_BATCH_ITEMS_SET   = $8000001E;
  39.  VTAG_BATCH_ITEMS_ADD   = $8000001F;
  40.  VTAG_VPMODEID_GET      = $80000020;
  41.  VTAG_VPMODEID_SET      = $80000021;
  42.  VTAG_VPMODEID_CLR      = $80000022;
  43.  VTAG_USERCLIP_GET      = $80000023;
  44.  VTAG_USERCLIP_SET      = $80000024;
  45.  VTAG_USERCLIP_CLR      = $80000025;
  46. { The following tags are V39 specific. They will be ignored (returing error -3) by
  47.         earlier versions }
  48.  VTAG_PF1_BASE_GET             =  $80000026;
  49.  VTAG_PF2_BASE_GET             =  $80000027;
  50.  VTAG_SPEVEN_BASE_GET          =  $80000028;
  51.  VTAG_SPODD_BASE_GET           =  $80000029;
  52.  VTAG_PF1_BASE_SET             =  $8000002a;
  53.  VTAG_PF2_BASE_SET             =  $8000002b;
  54.  VTAG_SPEVEN_BASE_SET          =  $8000002c;
  55.  VTAG_SPODD_BASE_SET           =  $8000002d;
  56.  VTAG_BORDERSPRITE_GET         =  $8000002e;
  57.  VTAG_BORDERSPRITE_SET         =  $8000002f;
  58.  VTAG_BORDERSPRITE_CLR         =  $80000030;
  59.  VTAG_SPRITERESN_SET           =  $80000031;
  60.  VTAG_SPRITERESN_GET           =  $80000032;
  61.  VTAG_PF1_TO_SPRITEPRI_SET     =  $80000033;
  62.  VTAG_PF1_TO_SPRITEPRI_GET     =  $80000034;
  63.  VTAG_PF2_TO_SPRITEPRI_SET     =  $80000035;
  64.  VTAG_PF2_TO_SPRITEPRI_GET     =  $80000036;
  65.  VTAG_IMMEDIATE                =  $80000037;
  66.  VTAG_FULLPALETTE_SET          =  $80000038;
  67.  VTAG_FULLPALETTE_GET          =  $80000039;
  68.  VTAG_FULLPALETTE_CLR          =  $8000003A;
  69.  VTAG_DEFSPRITERESN_SET        =  $8000003B;
  70.  VTAG_DEFSPRITERESN_GET        =  $8000003C;
  71.  
  72. { all the following tags follow the new, rational standard for videocontrol tags:
  73.  * VC_xxx,state         set the state of attribute 'xxx' to value 'state'
  74.  * VC_xxx_QUERY,&var    get the state of attribute 'xxx' and store it into the longword
  75.  *                      pointed to by &var.
  76.  *
  77.  * The following are new for V40:
  78.  }
  79.  
  80.  VC_IntermediateCLUpdate       =  $80000080;
  81.         { default=true. When set graphics will update the intermediate copper
  82.          * lists on color changes, etc. When false, it won't, and will be faster.
  83.          }
  84.  VC_IntermediateCLUpdate_Query =  $80000081;
  85.  
  86.  VC_NoColorPaletteLoad         =  $80000082;
  87.         { default = false. When set, graphics will only load color 0
  88.          * for this ViewPort, and so the ViewPort's colors will come
  89.          * from the previous ViewPort's.
  90.          *
  91.          * NB - Using this tag and VTAG_FULLPALETTE_SET together is undefined.
  92.          }
  93.  VC_NoColorPaletteLoad_Query   =  $80000083;
  94.  
  95.  VC_DUALPF_Disable             =  $80000084;
  96.         { default = false. When this flag is set, the dual-pf bit
  97.            in Dual-Playfield screens will be turned off. Even bitplanes
  98.            will still come from the first BitMap and odd bitplanes
  99.            from the second BitMap, and both R[xy]Offsets will be
  100.            considered. This can be used (with appropriate palette
  101.            selection) for cross-fades between differently scrolling
  102.            images.
  103.            When this flag is turned on, colors will be loaded for
  104.            the viewport as if it were a single viewport of depth
  105.            depth1+depth2 }
  106.  VC_DUALPF_Disable_Query       =  $80000085;
  107.  
  108.  
  109. FUNCTION VideoControl(cm : Address; TagList : Address) : Integer;
  110.     External;
  111.                     { cm - ColorMapPtr }
  112.  
  113.